home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Languages Suite
/
ProgLangD.iso
/
Foxpro 2.6 {Windows}
/
SALESMAN.AP_
/
SALESMAN.bin
(
.txt
)
Wrap
MS Visual FoxPro App
|
1994-03-10
|
90KB
|
1,549 lines
appview
ERROR
ESCAPE
foxapp
appproc.prg
POINTz
DO apperror WITH PROGRAM(),MESSAGE(),MESSAGE(1),LINENO(),ERROR()
MS Sans Serif
BAILOUTf
DBFNAMEf
WIN_NAMEf
FILT_EXPRf
SRCHTERMf
getdest
getorder
appabout
appsrch
prtopts
prtsetup
C:\FPW26\SAMPLE\CATALOG\SALESMAN.DBF
APPMENU.PRG
Please locate the F
database
database could not be found.
salesman.spr
APPVIEW
FXAPP_ERROFXAPP_ESC
FOXAPP
finAPPPROC
SET_POINT
SCRN_FONT
SCRN_FSIZESCRN_FSTYLSCREEN
BAILOUT
alDBFNAME
WIN_NAME
fFILT_EXPR
SRCHTERM
REGEN
artsGETDEST
GETORDER
APPABOUT
APPSRCH
PRTOPTS
stPRTSETUP
WIZ_SCREENQPRPATH
JUSTPATH
NUMAREAS
NNUMCOLS
CSTEMNUM
&RELSTRNUM
PFLDNUM
CFLDNUM
saCDBFNUM
PDBFNUM
\SROWNUM
e.SCOLNUM
EROWNUM
fmECOLNUM
ctARRANGED
THEFONT
s.CASCADENUMCTRLROW
fCTRLCOL
cdNEXTDBF
DEFINEDBF
MAKEALIAS
JUSTSTEM
aALERT
CLEANUP
stFORCEEXT
INVERT
&"NOTDEL
.SETRELAT
TALKz
appview.vue2
appview
appview.vue
foxapp.fky2
foxapp
foxapp.fky
SET POINT TO "&set_point"
fxapp_errorf
ON ERROR &fxapp_error
fxapp_escf
ON ESCAPE &fxapp_esc
SCREEN
SCRN_FONT
SCRN_FSIZESCRN_FSTYLT_STAT
APPVIEW
FOXAPP
IZEBAILOUT
YLDBFNAME
WIN_NAME
lWIZ_SCREENFILT_EXPR
SRCHTERM
SKIPVAR
artsDBFLIST
DBFLIST
NUMAREAS
NUMCOLS
ZECLEANUP
= ';
SETRELAT
DEFINEDBF
FILNAME
PNAME
JUSTPATH
aJUSTFNAME
ADDBS
FILNAME
JUSTEXT
FILNAME
FILNAME
FILNAME
JUSTFNAME
FILNAME
PATHSEP
FOUND_IT
MAXCHAR
PATHNAME
FFFFF
keyvalue = &keyfield
&keyfield == m.keyvalue and !EOF()
DELETE
ALIASNAME
UND_IT
KEYFIELD
KEYVALUE
MAKEALIAS
JUSTSTEM
NUMAREAS
DBFLIST
PDBFNUM
CASCADENUMCSTEMNUM
BCFLDNUM
ICASCADE
COMPATIBLEz
SAFETYz
Indexing on
INDEX ON &fldname TAG (m.fldname)
FILNAME
COMP_STAT
SAFE_STAT
IN_AREA
FSTEM
KEALIAS
MAKEALIAS
JUSTSTEM
FLDNAME
Please locate the F
database
FNAME
MAKEALIAS
JUSTSTEM
WIND_NAME
TALKz
CONSOLEz
IN_TALK
IN_CONS
NUMLINES
REMAIN
MAXLEN
KEYCODE
ALERT_ARRYTOP_ROW
RYBOT_ROW
MTOP_COL
BBOT_COL
IALERT
That display mode is not available on your computer.
Line No.: FF
Program:
Error:
Source:
foxapp.fky2
foxapp.fky
foxapp.fky
fxapp_errorf
ON ERROR &fxapp_error
E_PROGRAM
E_MESSAGE
E_SOURCE
E_LINENO
E_ERROR
ALERT
FOXAPP
No pick list is available for F
retvalf
REPLACE &varname WITH retval
REPLACE &varname WITH retval
SOURCEDBF
VARNAME
TARGETDBF
RNAME
RETVAL
NUMAREAS
DBFLIST
CFLDNUM
CSTEMNUM
DISPPOP
CDBFNUM
varnameval = &varname
pick list
enter
KEYBOARD CHR(23)
enter
retval = &varname
POPDBF
VARNAME
IN_AREA
TAG_FOUND
VARNAMEVALS_COL
E_COL
S_ROW
E_ROW
DBFWIN
ENTER
RETVAL
FNAME
FILNAME
FORCEEXT
DEFAULTEXT
JUSTFNAME
JUSTSTEM
JUSTEXT
JUSTPATH
ADDBS
CASCADE
INVERT
OPENDBF
ACTWIN
ALERT
APPERROR
SHOWPOP
DISPPOP
FNADDQUOTE
MAKEALIAS
showpop
juststem
justfname
justpath
addbs
forceext
defaultext
justext
SKIPVARf
\<File
\<Edit
ALT+E
\<Application
ALT+A
\<Utilities
ALT+U
\<Help
ALT+S
\<Print Setup
\<Quit
DO _qne1bxok2 IN LOCFILE("\WIZARDS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
Cu\<t
CTRL+X
Ctrl+X
\<Copy
CTRL+C
Ctrl+C
\<Paste
CTRL+V
Ctrl+V
Paste \<Special...
Clear
\<Insert Object...
\<Object...
Change Lin\<k
Con\<vert To Static
Select \<All
CTRL+A
Ctrl+A
\<Preferences...
\<Top
\<Previous
\<Next
\<End
C\<ycle
CTRL+F1
Ctrl+F1
\<Add Record
CTRL+N
Ctrl+N
\<Copy Record
\<Delete Record
CTRL+D
Ctrl+D
Locate
\<Search...
CTRL+S
Ctrl+S
\<Filter...
CTRL+F
Ctrl+F
\<Order...
CTRL+O
Ctrl+O
Pick \<List
CTRL+L
Ctrl+L
\<Query...
EXEFl
CTRL+Q
Ctrl+Q
\<Report...
CTRL+R
Ctrl+R
DO _qne1bxosk IN LOCFILE("\WIZARDS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
DO _qne1bxotj IN LOCFILE("\WIZARDS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
DO _qne1bxoud IN LOCFILE("\WIZARDS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
DO _qne1bxova IN LOCFILE("\WIZARDS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
DO _qne1bxowj IN LOCFILE("\WIZARDS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
DO _qne1bxox9 IN LOCFILE("\WIZARDS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
DO _qne1bxoyc IN LOCFILE("\WIZARDS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
DO _qne1bxoyd IN LOCFILE("\WIZARDS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
DO _qne1bxp05 IN LOCFILE("\WIZARDS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
DO _qne1bxp06 IN LOCFILE("\WIZARDS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
DO _qne1bxp1s IN LOCFILE("\WIZARDS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
DO showpop WITH ALIAS(),VARREAD()
DO _qne1bxp34 IN LOCFILE("\WIZARDS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
DO _qne1bxp40 IN LOCFILE("\WIZARDS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
\<Refresh Screen
\<Construct Index
\<Pack
DO _qne1bxp5u IN LOCFILE("\WIZARDS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
DO _qne1bxp5v IN LOCFILE("\WIZARDS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
DO _qne1bxp7h IN LOCFILE("\WIZARDS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
\<Help...
\<Macros
\<Calculator
Calendar/\<Diary
Pu\<zzle
\<About...
DO _qne1bxpae IN LOCFILE("\WIZARDS\APPMENU" ,"MPX;MPR|FXP;PRG" ,"Where is APPMENU?")
SHOWPOP
JUSTSTEM
JUSTFNAME
JUSTPATH
ADDBS
FORCEEXT
DEFAULTEXTJUSTEXT
FSKIPVAR
_QNE1BXOGA_QNE1BXOGL_QNE1BXOGM_QNE1BXOHA_QNE1BXOHJFILE
BXOGAEDIT
BXOGLAPPLICATIOUTILITIES
BXOHJWIZ_SCREENNEXTDBF
DBFSTEM
MAKEALIAS
JUSTSTEM
DBFNAME
ACTWIN
BAILOUT
Top of file
WIZ_SCREENAPPCTRL
Top of file
WIZ_SCREENP
End of file
WIZ_SCREEN<
End of file
WIZ_SCREEN
btn_val
IF !EMPTY(&fldname)
REPLACE &childfld WITH &parentfld
You cannot add a child record if there is no parent.
WIZ_SCREENDBFLIST
ALLBLANK
FNAME
FLDNAME
SNAME
C_REC
TEXTNEXTDBF
FCSTEMNUM
MAKEALIAS
JUSTSTEM
LDBFNAME
GMACTWIN
OHAWIN_NAME
JNOTDEL
AGOT_IT
NNUMAREAS
OPDBFNUM
CHILDFLD
JCFLDNUM
ENPARENTFLD
PFLDNUM
DBFLISTf
DBFLIST
ENCSTEMNUM
ACTWIN
NWIN_NAME
btn_val
DELETE
Deleting--Please wait.
DELETE
DBFLISTf
DELREC
ENWASDELETEDWIZ_SCREENNEXTDBF
EDCASCADE
DBFLIST
CSTEMNUM
btn_val
LOCATE
enter
KEYBOARD(CHR(23))
Locate Record
enter
SKIPVAR
ENDBFSTEM
EDMAKEALIAS
JUSTSTEM
DDBFNAME
WIZ_SCREENFA_LOC
TENTER
EENACTWIN
appsrch.prg
appsrch.spr
DBFSTEM
ENMAKEALIAS
JUSTSTEM
DBFNAME
DREGEN
MNAME
REENWIZ_SCREEN
Filter Expression
SET FILTER TO &filt_expr
No records match that filter
ORIG_REC
NFILT_EXPR
WIZ_SCREEN
getorder.prg
getorder.spr
No indexes were found
DBFSTEM
NMAKEALIAS
JUSTSTEM
NDBFNAME
DREGEN
MNAME
REENWIZ_SCREENA
qprview
dbflistf
DEFAULTzF
Query name
SELECT * ;
FROM <<dbflist[1,m.cstemnum]>>
, <<dbflist[m.i,m.cstemnum]>>
WHERE ;
AND
<<dbflist[m.i,m.cfldnum]>> = <<dbflist[m.i,m.pfldnum]>> ;
INTO CURSOR FoxApp
BROWSE NOMODIFY
Query name
m.qname
Please locate the database
qprview.vue2
qprview
GEN_NAME
KEALIAS
QNAME
NPNAME
DWIN_NAME
QPRVIEW
ENDBFSTEM
ENMAKEALIAS
JUSTSTEM
DBFNAME
ENSKIPVAR
LADDBS
MQPRPATH
HAFORCEEXT
JJUSTFNAME
NEXTDBF
NIN_DIR
OJUSTPATH
OPENDBF
prtopts.prg
prtopts.spr
REGEN
NMNAME
ACTWIN
NWIN_NAME
Reindexing completed
INVERT
Pack completed
appabout.prg
appabout.spr
REGEN
NMNAME
_QNE1BXOK2
_QNE1BXOSK
_QNE1BXOTJ
_QNE1BXOUD
_QNE1BXOVA
_QNE1BXOWJ
_QNE1BXOX9
_QNE1BXOYC
_QNE1BXOYD
_QNE1BXP05
_QNE1BXP06
_QNE1BXP1S
_QNE1BXP34
_QNE1BXP40
_QNE1BXP5U
_QNE1BXP5V
_QNE1BXP7H
_QNE1BXPAE
TALKz
COMPATIBLEz
_qne1bxrgo
Printing Destination
PRINTER
PRINTz
_qne1bxrgo
Print to:
Printer Setup:
@^ File;PRN;LPT1;LPT2;LPT3;COM1;COM2;COM3
@*HN \<File...
@3S67
@*RVN Print On;Print Off
@3 999
@3 999
@*HT \!OK
@*HT \?Cancel
@*C Printer \<Driver Setup...
Left Margin:
Right Margin:
_qne1bxrgo
SET PRINTER TO &pdest
TALKz
COMPATIBLEz
READBORDERz
_qne1bxu40
Geneva
Printing Destination
PRINTER
PRINTz
_qne1bxu40
Print to:
Geneva
Printer Setup:
Geneva
Geneva
@^3 File;PRN;LPT1;LPT2;LPT3;COM1;COM2;COM3
Geneva
@*HN3 \<File...
Geneva
A`UA@
@3S67
Geneva
K7I&@
@*RVN3 Print On;Print Off
Geneva
@3 999
Geneva
@3 999
Geneva
@*HT3 \!OK
Geneva
@*HT3 \?Cancel
Geneva
@*C3 Printer \<Driver Setup...
Left Margin:
Geneva
Right Margin:
Geneva
_qne1bxu40
SET READBORDER &rborder
SET PRINTER TO &pdest
TALKz
COMPATIBLEz
READBORDERz
_qne1bxwbc
MS Sans Serif
Printing Destination
PRINTER
PRINTz
_qne1bxwbc
Print to:
MS Sans Serif
Printer Setup:
MS Sans Serif
MS Sans Serif
@^ File;PRN;LPT1;LPT2;LPT3;COM1;COM2;COM3
MS Sans Serif
@*HN \<File...
MS Sans Serif
@3S67
MS Sans Serif
@*RVN Print On;Print Off
MS Sans Serif
@3 999
MS Sans Serif
@3 999
MS Sans Serif
@*HT \!OK
MS Sans Serif
@*HT \?Cancel
MS Sans Serif
|?U:@
@*C Printer \<Driver Setup...
Left Margin:
MS Sans Serif
Right Margin:
MS Sans Serif
_qne1bxwbc
SET READBORDER &rborder
SET PRINTER TO &pdest
CURRAREA
TALKSTAT
COMPSTAT
_QNE1BXRGOSKIPVAR
PFILNAME
PDEST
ORIGDEST
PRT_INFILEPRTSTAT
ORIGPRTSTAPDRIVSTUP
_QNE1BXSCYFLIST
_QNE1BXSGG_QNE1BXSOE_QNE1BXSTP_QNE1BXSXHOKBUT
CANCBUT
_QNE1BXT2A_QNE1BXT8Z_QNE1BXT90RBORDER
E_QNE1BXU40_QNE1BXUNI_QNE1BXUT4_QNE1BXUY4_QNE1BXV59_QNE1BXV7E_QNE1BXVEB_QNE1BXVM1_QNE1BXVM5_QNE1BXWBC_QNE1BXWVO_QNE1BXWY6_QNE1BXX6F_QNE1BXXCI_QNE1BXXGH_QNE1BXXNO_QNE1BXXTY_QNE1BXXU1/
PDEST
Print to:
FLIST
ORIGFILE
PFILNAME
PDEST
PFILNAME
PDEST
PDRIVSTUP
CURRWIND
PDEST
PFILNAME
OKBUT
PDEST
Print to:
FLIST
ORIGFILE
PFILNAME
PDEST
PFILNAME
PDEST
PDRIVSTUP
CURRWIND
PDEST
PFILNAME
OKBUT
PDEST
Print to:
FLIST
ORIGFILE
PFILNAME
PDEST
PFILNAME
PDEST
PDRIVSTUP
CURRWIND
PDEST
PFILNAME
OKBUT
O_QNE1BXSCY
_QNE1BXSGG
_QNE1BXSOE
_QNE1BXSTP
_QNE1BXSXH
_QNE1BXT2A
_QNE1BXT8Z
_QNE1BXT90
_QNE1BXUNI
_QNE1BXUT4
_QNE1BXUY4
_QNE1BXV59
_QNE1BXV7E
_QNE1BXVEB
_QNE1BXVM1
_QNE1BXVM5
_QNE1BXWVO
_QNE1BXWY6
_QNE1BXX6F
_QNE1BXXCI
_QNE1BXXGH
_QNE1BXXNO
_QNE1BXXTY
_QNE1BXXU1
TALKz
COMPATIBLEz
_qne1by63r
Report Destination
_qne1by63r
Report Destination:
@*RVN \<Screen;\<Printer
@*VT \!OK
@*HT \?Cancel
_qne1by63r
TALKz
COMPATIBLEz
READBORDERz
_qne1by81f
Geneva
Report Destination
_qne1by81f
Report Destination:
Geneva
Geneva
@*RVN3 \<Screen;\<Printer
Geneva
@*VT3 \!OK
Geneva
@*HT3 \?Cancel
_qne1by81f
SET READBORDER &rborder
TALKz
COMPATIBLEz
READBORDERz
_qne1by91g
MS Sans Serif
Report Destination
_qne1by91g
Report Destination:
MS Sans Serif
MS Sans Serif
@*RVN \<Screen;\<Printer
MS Sans Serif
@*VT \!\<OK
MS Sans Serif
@*HT \?\<Cancel
_qne1by91g
SET READBORDER &rborder
CURRAREA
iTALKSTAT
COMPSTAT
_QNE1BY63RSKIPVAR
REPBUT
REPDEST
leOKBUT
RFILE
_QNE1BY74LCANCLBUT
_QNE1BY78M_QNE1BY7P2_QNE1BY7P5RBORDER
R_QNE1BY81F_QNE1BY8EW_QNE1BY8KX_QNE1BY8P2_QNE1BY8P9_QNE1BY91G_QNE1BY9KP_QNE1BY9QQ_QNE1BY9VA_QNE1BY9VFU
REPBUT
iRFILE
REPDEST
REPDEST
CURRWIND
iREPBUT
REPDEST
RFILE
3ROKBUT
REPBUT
iRFILE
REPDEST
REPDEST
CURRWIND
iREPBUT
REPDEST
RFILE
3ROKBUT
REPBUT
iRFILE
REPDEST
REPDEST
CURRWIND
iREPBUT
REPDEST
RFILE
3ROKBUT
_QNE1BY74L
_QNE1BY78M
_QNE1BY7P2
_QNE1BY7P5
_QNE1BY8EW
_QNE1BY8KX
_QNE1BY8P2
_QNE1BY8P9
_QNE1BY9KP
_QNE1BY9QQ
_QNE1BY9VA
_QNE1BY9VF
TALKz
COMPATIBLEz
_qne1byaz8
Index Order
tagnumf
_qne1byaz8
Index Order:
@*HT \!OK;\?Cancel
_qne1byaz8
TALKz
COMPATIBLEz
READBORDERz
_qne1byc3z
Geneva
Index Order
tagnumf
_qne1byc3z
Geneva
|?U7@
Geneva
@*HT3 \!OK;\?Cancel
Index Order:
Geneva
_qne1byc3z
SET READBORDER &rborder
TALKz
COMPATIBLEz
READBORDERz
_qne1bydsi
MS Sans Serif
Index Order
tagnumf
_qne1bydsi
MS Sans Serif
ffffff7@
MS Sans Serif
@*HT \!\<OK;\?\<Cancel
Index Order:
MS Sans Serif
_qne1bydsi
SET READBORDER &rborder
CURRAREA
oTALKSTAT
COMPSTAT
_QNE1BYAZ8SKIPVAR
TAGNUM
STARTORD
STARTALIASNUMTAG
IDXTAGS
ORDBUT
Z8_QNE1BYBP5_QNE1BYBQTRBORDER
8_QNE1BYC3Z_QNE1BYDF2_QNE1BYDF6_QNE1BYDSI_QNE1BYECU_QNE1BYECV
STARTALIAS
STARTALIAS
STARTALIAS
_QNE1BYBP5
_QNE1BYBQT
_QNE1BYDF2
_QNE1BYDF6
_QNE1BYECU
_QNE1BYECV
TALKz
COMPATIBLEz
_qne1byfny
_qne1byfny
This application was generated by
FoxApp 2.6
Copyright (c) Microsoft Corp 1994
_qne1byfny
TALKz
COMPATIBLEz
READBORDERz
_qne1byg5i
Geneva
_qne1byg5i
This application was generated by
Geneva
FoxApp 2.5
Geneva
Copyright (c) Microsoft Corp 1993
Geneva
_qne1byg5i
SET READBORDER &rborder
TALKz
COMPATIBLEz
READBORDERz
_qne1bygix
MS Sans Serif
_qne1bygix
This application was generated by
MS Sans Serif
FoxApp 2.6
MS Sans Serif
Copyright (c) Microsoft Corp 1994
MS Sans Serif
_qne1bygix
SET READBORDER &rborder
CURRAREA
STALKSTAT
SCOMPSTAT
_QNE1BYFNYRBORDER
Y_QNE1BYG5I_QNE1BYGIX
TALKz
COMPATIBLEz
_qne1byi4x
Search for:
srchtermf
CURSORzj
_qne1byi4x
In Field:
@3S60
@*VN \!OK;\?Cancel
Find:
_qne1byi4x
TALKz
COMPATIBLEz
READBORDERz
_qne1bykja
Geneva
Search for:
srchtermf
CURSORzj
_qne1bykja
In Field:
Geneva
Geneva
|?U:@
@3S60
Geneva
Geneva
@*VN3 \!OK;\?Cancel
Find:
Geneva
_qne1bykja
SET READBORDER &rborder
TALKz
COMPATIBLEz
READBORDERz
_qne1bymgx
MS Sans Serif
Search for:
srchtermf
CURSORzj
_qne1bymgx
In Field:
MS Sans Serif
MS Sans Serif
|?U:@
@3S60
MS Sans Serif
MS Sans Serif
@*VN \!\<OK;\?\<Cancel
Find:
MS Sans Serif
_qne1bymgx
SET READBORDER &rborder
CURRAREA
STALKSTAT
SCOMPSTAT
_QNE1BYI4XSRCHTERM
YOKSRCH
IFLDNUM
GIXFLDARRY
XFLDCNT
STARTORD
STARTALIASCURORD
BP5FLDNAME
QTSKIPVAR
8CURS_STAT
_QNE1BYJ00_QNE1BYJ3F_QNE1BYJ6U_QNE1BYK44_QNE1BYK48RBORDER
_QNE1BYKJA_QNE1BYL58_QNE1BYLAL_QNE1BYLHA_QNE1BYLYD_QNE1BYLYG_QNE1BYMGX_QNE1BYNBU_QNE1BYNEA_QNE1BYNLF_QNE1BYO2L_QNE1BYO2Q
SRCHTERM
FLDNAME
SFLDNUM
STAGNUM
GETTAG
CASE TYPE("&fldname") $ "CM"
LOCATE FOR UPPER(m.srchterm) $ UPPER(&fldname)
LOCATE FOR UPPER(m.srchterm) $ UPPER(&fldname)
CASE TYPE("&fldname") $ "FN"
LOCATE FOR VAL(ALLTRIM(m.srchterm)) = &fldname
CASE TYPE("&fldname") = "D"
{}"()
LOCATE FOR CTOD(srchterm) = &fldname
CASE TYPE("&fldname") = "L"
LOCATE FOR &fldname
LOCATE FOR !&fldname
CASE TYPE("&fldname") = "U"
Field
not found
Not found
Found it!
SKIPVAR
SOKSRCH
SSRCHTERM
TAGNUM
XGETTAG
YFLDNAME
IWAITMSG
IXTHISREC
XANSWER
DOLOC
STARTORD
STARTALIAS
SRCHTERM
FLDNAME
SFLDNUM
STAGNUM
GETTAG
CASE TYPE("&fldname") $ "CM"
LOCATE FOR UPPER(m.srchterm) $ UPPER(&fldname)
LOCATE FOR UPPER(m.srchterm) $ UPPER(&fldname)
CASE TYPE("&fldname") $ "FN"
LOCATE FOR VAL(ALLTRIM(m.srchterm)) = &fldname
CASE TYPE("&fldname") = "D"
{}"()
LOCATE FOR CTOD(srchterm) = &fldname
CASE TYPE("&fldname") = "L"
LOCATE FOR &fldname
LOCATE FOR !&fldname
CASE TYPE("&fldname") = "U"
Field
not found
Not found
Found it!
SKIPVAR
SOKSRCH
SSRCHTERM
TAGNUM
XGETTAG
YFLDNAME
IWAITMSG
IXTHISREC
XANSWER
DOLOC
STARTORD
STARTALIAS
SRCHTERM
FLDNAME
SFLDNUM
STAGNUM
GETTAG
CASE TYPE("&fldname") $ "CM"
LOCATE FOR UPPER(m.srchterm) $ UPPER(&fldname)
LOCATE FOR UPPER(m.srchterm) $ UPPER(&fldname)
CASE TYPE("&fldname") $ "FN"
LOCATE FOR VAL(ALLTRIM(m.srchterm)) = &fldname
CASE TYPE("&fldname") = "D"
{}"()
LOCATE FOR CTOD(srchterm) = &fldname
CASE TYPE("&fldname") = "L"
LOCATE FOR &fldname
LOCATE FOR !&fldname
CASE TYPE("&fldname") = "U"
Field
not found
Not found
Found it!
SKIPVAR
SOKSRCH
SSRCHTERM
TAGNUM
XGETTAG
YFLDNAME
IWAITMSG
IXTHISREC
XANSWER
DOLOC
STARTORD
STARTALIAS
FLDNAME
DNAME
Searching. This may take a few moments.
Searching
doloc
Searching Options
Searching Options
@*HT \!\<Search;\?\<Cancel
FoxApp was not able to find a record matching your search
term while using a fast searching method. Do you want to
search for the term with slower but more thorough methods?
doloc
ASANSWER
ASDOLOC
LOCOK
X_QNE1BYJ00
_QNE1BYJ3F
_QNE1BYJ6U
_QNE1BYK44
_QNE1BYK48
_QNE1BYL58
_QNE1BYLAL
_QNE1BYLHA
_QNE1BYLYD
_QNE1BYLYG
_QNE1BYNBU
_QNE1BYNEA
_QNE1BYNLF
_QNE1BYO2L
_QNE1BYO2Q
GETTAG
WAITMSG
DOLOC
TALKz
COMPATIBLEz
READBORDERz
_qnq0osrzl
ms sans serif
Salesman
_qnq0osrzl
DELETEz
Database is empty, add a record?
error
DO wizerrorhandler
_qnq0osrzl
Salesman
MS Sans Serif
Date:
MS Sans Serif
MS Sans Serif
Salesman:
MS Sans Serif
MS Sans Serif
ffffff
@K XXX
Name:
MS Sans Serif
MS Sans Serif
@K XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
Ytdsales:
MS Sans Serif
MS Sans Serif
@K 999,999.99
Phone:
MS Sans Serif
MS Sans Serif
3333333@
@K XXXXXXXXXXXX
City:
MS Sans Serif
MS Sans Serif
@K XXXXXXXXXXXXXXX
MS Sans Serif
@*HN \<Top
Go to first record.
MS Sans Serif
@*HN \<Prev
Go to previous record.
MS Sans Serif
@*HN \<Next
Go to next record.
MS Sans Serif
@*HN \<End
Go to last record.
MS Sans Serif
@*HN \<Locate
LOCATE
Locate a record.
MS Sans Serif
@*HN \<Add
Add a new record.
MS Sans Serif
@*HN Ed\<it
Edit current record.
MS Sans Serif
@*HN \<Delete
DELETE
Delete current record.
MS Sans Serif
@*HN P\<rint
PRINT
Print report.
MS Sans Serif
@*HN \<Close
Close screen.
_qnq0osrzl
SET READBORDER &rborder
SET DELETED &wzolddelete
ON ERROR &wzolderror
TALKz
COMPATIBLEz
_qnq0osuzl
Salesman
_qnq0osuzl
DELETEz
Database is empty, add a record?
error
DO wizerrorhandler
_qnq0osuzl
Salesman
Date:
Salesman:
@K XXX
Name:
@K XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
Ytdsales:
@K 999,999.99
Phone:
@K XXXXXXXXXXXX
City:
@K XXXXXXXXXXXXXXX
@*HN \<Top
Go to first record.
@*HN \<Prev
Go to previous record.
@*HN \<Next
Go to next record.
@*HN \<End
Go to last record.
@*HN \<Locate
LOCATE
Locate a record.
@*HN \<Add
Add a new record.
@*HN Ed\<it
Edit current record.
@*HN \<Delete
DELETE
Delete current record.
@*HN P\<rint
PRINT
Print report.
@*HN \<Close
Close screen.
_qnq0osuzl
SET DELETED &wzolddelete
ON ERROR &wzolderror
CURRAREA
\TALKSTAT
pCOMPSTAT
RBORDER
_QNQ0OSRZLISEDITING
ISADDING
0WZOLDDELETWZOLDERRORWZALIAS
TEMPCURS
aFOX_ALERT
SALESMAN
LNAME
YTDSALES
PHONE
TOP_BTN
BTN_VAL
PREV_BTN
NEXT_BTN
END_BTN
LOC_BTN
ADD_BTN
EDIT_BTN
DEL_BTN
PRNT_BTN
EXIT_BTN
READACT
ZLREADDEAC
_QNQ0OSUZLi
Please finish your edits.
ISEDITING
ISEDITING
WZALIAS
MS Sans Serif
MS Sans Serif
MS Sans Serif
@*HT \<OK;\?\!\<Cancel
WZALRTMESSALRTBTN
p_QEC1IJ2T7x
Top of file.
Top of file.
End of file.
End of file.
LOCATE
Locate Record
End of file.
Sorry, could not lock record -- try again later.
DELETE
CANCEL
Edits Canceled.
DELETE
End of file.
Delete selected record?
End of file.
PRINT
error
WIZARDS\
WIZARD.APP
WIZARD.APP
Locate WIZARD.APP:
ON ERROR &sOldError
WIZARD.APPF
Wizard application is not available.
Creating report with ReportWizard.
* LAYOUT = COLUMNARF
WZ_QREPO
NOSCRN/CREATE
Could not create report.
TO PRINT NOCONSOLE
PREVIEW8
NEXT 1
REPORT FORM (ALIAS()) &pr_out &pr_record
ON ERROR &sOldError
BTNNAME
SSWZLOCATE
pISEDITING
ISADDING
EDITHAND
LREFRESH
FOX_ALERT
SOLDERROR
WIZFNAME
RSAVEREC
SAVEAREA
aTMPCURS
TMPSTR
LPRNT_BTN
P_RECS
P_OUTPUT
PR_OUT
PR_RECORD
PDIALOG
COMMENT
BAILOUT
\<Save
\<Cancel
\<Edit
\<Delete
ISEDITING
TOP_BTN
pPREV_BTN
NEXT_BTN
END_BTN
LLOC_BTN
ADD_BTN
DEL_BTN
EXIT_BTN
RPRNT_BTN
EDIT_BTN
MS Sans Serif
Microsoft FoxPro
Output:
MS Sans Serif
Print:
MS Sans Serif
MS Sans Serif
@*RVN \<Current Record;\<All Records
MS Sans Serif
@*RVN \<Printer;Pre\<view
MS Sans Serif
@*HT \<Print;\<Cancel
_QJN12ZBVHP_RECS
BVHP_OUTPUT
PRNT_BTN
CANCEL
PACTION
VHREADDEAC
READACT
FOX_ALERT
BTN_VAL
REFRESH
PDIALOG
WIZERRORHA
EDITHAND
TALKz
COMPATIBLEz
_qne1byq4d
Print Options
_qne1byq4d
@*RVN Use current printer driver;Use report printer driver;Use no printer driver
@*RVN \<Modify report;Printer \<setup;\<Print report
@*RVN C\<reate report
@*RVN Form layout;Columnar layout
@*HN \!OK;\?Cancel
_qne1byq4d
TALKz
COMPATIBLEz
READBORDERz
_qne1bysjj
Geneva
Print Options
_qne1bysjj
Geneva
@*RVN3 Use current printer driver;Use report printer driver;Use no printer driver
Geneva
@*RVN3 \<Modify report;Printer \<setup;\<Print report
Geneva
@*HN3 \!OK;\?Cancel
Geneva
@*RVN3 C\<reate report
Geneva
|?U1@
@*RVN3 Form layout;Columnar layout
_qne1bysjj
SET READBORDER &rborder
TALKz
COMPATIBLEz
READBORDERz
_qne1bytzw
MS Sans Serif
Print Options
_qne1bytzw
MS Sans Serif
@*RVN Use current printer driver;Use report printer driver;Use no printer driver
MS Sans Serif
@*RVN \<Modify report;Printer \<setup;\<Print report
MS Sans Serif
@*RVN C\<reate report
MS Sans Serif
@*RVN Form layout;Columnar layout
MS Sans Serif
@*HN \!\<OK;\?\<Cancel
_qne1bytzw
SET READBORDER &rborder
CURRAREA
TALKSTAT
COMPSTAT
_QNE1BYQ4DSKIPVAR
STEMNAME
MAKEALIAS
JUSTSTEM
DBFNAME
CREATERB
NREPTRB
5LAYOUTRB
PDRIVR
LASTPD
PDRIVRB
4D_QNE1BYQKY_QNE1BYQTEOKCANCL
_QNE1BYQZ5_QNE1BYSAURBORDER
D_QNE1BYSJJ_QNE1BYSVW_QNE1BYT32_QNE1BYTDY_QNE1BYTQX_QNE1BYTZW_QNE1BYUED_QNE1BYUM4_QNE1BYUS9_QNE1BYV35
REPTRB
LASTPD
PDRIVRB
CREATERB
DLAYOUTRB
CREATERB
REPTRB
PDRIVRB
LAYOUTRB
Report form
prtsetup.prg
prtsetup.spr
PDSETUP
OKCANCL
CREATERB
REPNAME
LAYOUTRB
DDBFNAME
REPTRB
REGEN
MNAME
PDRIVRB
PUTPRT
NOLD_DRIVERE
CURRWIND
REPTRB
REPTRB
LASTPD
PDRIVRB
CREATERB
DLAYOUTRB
Report form
prtsetup.prg
prtsetup.spr
PDSETUP
OKCANCL
CREATERB
REPNAME
LAYOUTRB
DDBFNAME
REPTRB
REGEN
MNAME
PDRIVRB
PUTPRT
NOLD_DRIVERY
CREATERB
REPTRB
PDRIVRB
LAYOUTRB
CURRWIND
REPTRB
REPTRB
LASTPD
PDRIVRB
CREATERB
DLAYOUTRB
CREATERB
REPTRB
PDRIVRB
LAYOUTRB
Report form
prtsetup.prg
prtsetup.spr
PDSETUP
OKCANCL
CREATERB
REPNAME
LAYOUTRB
DDBFNAME
REPTRB
REGEN
MNAME
PDRIVRB
PUTPRT
NOLD_DRIVERE
CURRWIND
REPTRB
FRX|LBX
Report or label form
getdest.prg
getdest.spr
ERROR
DO rpterror
READY
The printer is not ready.
Printing report...
REPORT FORM (m.repname) TO PRINT PROMPT NOCONSOLE &reptparm
Report printed!
Printing report...
REPORT FORM (m.repname) TO PRINT PROMPT NOCONSOLE &reptparm
Report printed!
Printing to
err_stringf
ON ERROR &err_string
REPTPARM
REPNAME
STARTREC
REPBUT
DREPDEST
OKBUT
REGEN
MNAME
ERR_STRINGSTARTWIN
NWIN_STRING`
Error producing report.;The report form may not correspond to this database.
ALERT
_QNE1BYQKY
_QNE1BYQTE
_QNE1BYQZ5
_QNE1BYSAU
_QNE1BYSVW
_QNE1BYT32
_QNE1BYTDY
_QNE1BYTQX
_QNE1BYUED
_QNE1BYUM4
_QNE1BYUS9
_QNE1BYV35
PUTPRT
RPTERROR
SCAFFOLD.PRG
c:\temp\
SCAFFOLD.FXP
..\..\FOXAPP\PRGS\APPPROC.PRG
APPPROC.FXP
..\..\FOXAPP\MENUS\APPMENU.PRG
APPMENU.FXP
..\..\FOXAPP\SCREENS\PRTSETUP.PRG
PRTSETUP.FXP
..\..\FOXAPP\SCREENS\GETDEST.PRG
GETDEST.FXP
..\..\FOXAPP\SCREENS\GETORDER.PRG
GETORDER.FXP
..\..\FOXAPP\SCREENS\APPABOUT.PRG
APPABOUT.FXP
..\..\FOXAPP\SCREENS\APPSRCH.PRG
APPSRCH.FXP
SALESMAN.SPR
SALESMAN.SPX
..\..\FOXAPP\SCREENS\PRTOPTS.PRG
PRTOPTS.FXP